home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / brian_w / inputs / fixup next >
Text File  |  1990-06-02  |  144b  |  10 lines
  1. %%HP: T(3)A(D)F(.);
  2. \<< DUP
  3.   IF TYPE 12 \=/
  4.   THEN "_" SWAP
  5. \->TAG OBJ\-> + SWAP
  6. \->STR SWAP + OBJ\->
  7. DUP OBJ\-> OBJ\-> STO
  8.   END
  9. \>>
  10.